home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir40 / pc37042.zip / CBL / CALL370.CBL next >
Text File  |  1987-11-19  |  1KB  |  26 lines
  1.               IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. CALL370.
  3.       ****************************************************************
  4.       *   CALL370  is a test program for the subprogram "TEST370".   *
  5.       ****************************************************************
  6.        ENVIRONMENT DIVISION.
  7.        CONFIGURATION SECTION.
  8.        DATA DIVISION.
  9.        WORKING-STORAGE SECTION.
  10.        01  D-DATE PIC 9(6)  VALUE 082987.
  11.        01  X-DATE PIC X(6)  VALUE '082987'.
  12.        01  P-DATE PIC 9(15) USAGE COMP-3 VALUE 082987.
  13.        01  C-DATE PIC 9(6)  USAGE COMP VALUE 082987.
  14.        PROCEDURE DIVISION.
  15.        SET-UP.
  16.                DISPLAY "CALL370.CBL STARTING TEST OF TEST370.BIN".
  17.        CALL-370.
  18.                CALL "TEST370" USING D-DATE, X-DATE, P-DATE, C-DATE.
  19.                DISPLAY "BACK FROM FIRST CALL RC=" RETURN-CODE.
  20.                CALL "TEST370" USING D-DATE, X-DATE, P-DATE, C-DATE.
  21.                DISPLAY "BACK FROM SECOND CALL RC=" RETURN-CODE.
  22.        END-JOB.
  23.                DISPLAY "THAT'S ALL FOR NOW".
  24.                EXIT PROGRAM.
  25.                STOP RUN.
  26.